// ClassCloner . java 

// Copyright (c) 2004. Borland Software Corporation All Rights Reserved, 
package com. borland . jbuilder . ref actor . async; 
import java.io.*; 

import com. borland. primetime . vf s . * ; 
import com. borland. jbuilder. jam. *; 
import com. borland. jbuilder . java . * ; 
import com. borland . jbuilder . jom. * ; 
import com. borland . jbuilder . node . * ; 
import com. borland . jbuilder . repository . * ; 
import com. sun . tools . javac . code . * ; 
import com. sun . tools . javac . code . Symbol . * ; 
public class ClassCloner { 

private JBProject project; 

private JomFile newClonedJomFile ; 

private JamClass existingJamClass ; 

private String newClassName; 

I -k-k 

will clone a class from existingJamClass and then rename the packag 
e, class 

* and constructors based on newClassName 

* @param project JBProject 

* @param existingJamClass JamClass 

* @param newClassName String 
*/ 

public ClassCloner (JBProject project, JamClass existingJamClass, Strin 
g newClassName) { 

this. project = project; 

this . existingJamClass = existingJamClass; 
this . newClassName = newClassName; 

} 

/ * * 

* Clones the new class from existingJamClass and the newClassName, pa 

rses 

* the newly create class which has the side affect of putting it in t 
he symbol 

* table and then returns the ClassSymbol from the symbol table 

* ©return ClassSymbol 
*/ 

public ClassSymbol getNewClassSymbol ( ) { 
createNewClass () ; 

return Memberlnjector . findClassSymbol (newClassName, project); 

} 

private void createNewClass ( ) { 
if (newClonedJomFile == null) { 

//Get an url for the new class from it's name and using the projec 
ts paths 

Url newUrl = JomUtil . getUrlFromClassName (pro ject , newClassName); 
ClassEntry ce = pro ject . getRepository (). getClassEntry (exist ingJamC 
lass . getName ( ) ) ; 

Url classFileUrl = ce . getFile ( ) ; 

//will contain the source code for the existing class (directly or 
decompiled) 

String newSource = null; 

//Try to create by decompiling if the compiled class file exists 
if (ClassFileUrl != null && VFS . exist s ( classFileUrl ) ) { 

ClassStubSource stub = null; 

stub = new ClassStubSource (classFileUrl ) ; 

newSource = stub . toString ( ) ; 

} 

//Else copy the source content from the source file 
else { 

SourceEntry se = ce . get Source () ; 
if (se != null) { 
try { 

newSource = new String (VFS . getBuffer ( se . getFile ()). getConten 



to ) 



kage 



} 

catch (lOException ex) { 
} 

} 

} 

if (newSource == null) { 
return; 

} 

//Create a Sourcelnfo for newSource and set to newUrl 
Sourcelnfo si = pro ject . get Sourceinf oManager (). get (newSource) ; 
si . setUrl (newUrl) ; 

//Create an instance of JomFile so we can fix up the class and pac 



/ /names 

newCloned JomFile = JomFile . instance (pro ject , si, newUrl); 
if (newClonedJomFile != null) { 

JomClass jomClass = newClonedJomFile . getClass (exist ingJamClass . g 
etType () ) ; 

if (jomClass != null) { 

//Set's the new class name (will fix up the classname and cons 

tructors) 

jomClass . setName (JavaNames . getClassName (newClassName) ) ; 

} 

String newPackageName = JavaNames . getPackageName (newClassName) ; 
String oldPackageName = JavaNames . getPackageName (existingJamClas 
s . getName ( ) ) ; 

//If the new class is in a different package than fix up the pac 
kage statement 

if (! newPackageName . equals (oldPackageName) ) { 

newClonedJomFile . getPackage () . setPackageName (newPackageName) ; 

newClonedJomFile . addlmport (new Jomlmport (oldPackageName + 



) ) ; 

ol table 



} 

/ /Now commit changes which also enters the symbols into the symb 



//for the new class 

newClonedJomFile . commit AndEnterSymbols (false) ; 

} 

} 

} 

/ ★ * 

* Removes the cloned class 
^/ 

public void removeClonedClass ( ) { 
try { 

if (newClonedJomFile i= null) { 

VFS . delete (newClonedJomFile . getUrl ( ) ) ; 
newClonedJomFile = null; 

} 

} 

catch (lOException ex) { 
} 

} 

} 

// Memberin jector . java 

// Copyright (c) 2004. Borland Software Corporation All Rights Reserved, 
package com.borland. jbuilder. java; 

import com. sun . tools . javac . code . Symbol . Class Symbol ; 
import com . sun . tools . j avac . code . Symbol . Var Symbol ; 
import com. sun . tools . javac . code . Symbol . MethodSymbol ; 
import com . bo r land . jbuilder . j ava .filter . FilterHelper ; 
import com . bo r land . prime time . node . Pro ject ; 
import com. sun .tools . javac . j vm . Class Reader; 
import com. sun .tools . javac . ut il . Name ; 
import com. sun . tools . javac . util . Name . Table; 
import com. sun . tools . javac . comp . Check; 
import com. sun . tools . javac . comp . Env; 



import com. sun . tools . javac . util . * ; 

import com. sun . tools . javac . code . Type; 

import com. sun . tools . javac . code . Symtab; 

import com.borland. jbuilder . jam. JamMethodType; 

import com.borland. jbuilder. jam. JamType; 

import com. sun . tools . javac . code . Type .MethodType; 

import com.borland.primetime . vf s . VFS ; 

public class Memberin jector { 

static public ClassSymbol f indClassSymbol (String fullName, Project pro 
ject) { 

synchronized (CompilerManager . instance (pro ject ) . getManager (true) . 
getContextLock ( ) ) { // Alway get the JSp one (for now.) 
return FilterHelper . lookupClass (fullName, 

CompilerManager . instance (pro ject ) . getManager (true) . 
getPro jectContext ( ) ) ; // Alway get the JSp one (for now.) 

} 

} 

static public void removeClassSymbol ( String fullName, Project project) 

{ 

synchronized (CompilerManager . instance (pro ject ) . getManager (true) . 
getContextLock 0 ) { // Alway get the JSp one (for now.) 
Name. Table names = Name . Table . instance (CompilerManager . instance ( 
project) . 

getManager (true) . getPro jectContext 0) ; // Alway get the JSp 
one (for now. ) 

Name name = names . fromString (fullName) ; 

ClassReader . instance (CompilerManager . instance (project) . getManage 

r (true) . 

getPro jectContext ()). classes . remove (name) ; // Alway get the 
JSp one (for now.) 

Check context = Check . instance (CompilerManager . instance (pro ject ) 

getManager (true) . getPro jectContext () ) ; 
context . compiled . remove (name) ; // Alway get the JSp one (for now 

.) 

} 

} 

static public VarSymbol f indFieldSymbol (ClassSymbol owner. String name 
, Project project, Env env) { 
try { 

synchronized (CompilerManager . instance (project ) . getManager (true) 

getContextLock () ) { // Alway get the JSp one (for now.) 
Context context = CompilerManager . instance (pro ject ). getManager 

(true) . 

getPro jectContext () ; // Alway get the JSp one (for now.) 
ClassSymbol csym = FilterHelper . lookupClass (owner . flatName () , 

context) ; 

if (csym == null) { 
return null; 

} 

return FilterHelper . lookupVar (csym, name, context, env); 

} 

} 

catch (Exception ex) { 
return null; 

} 

} 

static public VarSymbol addFieldSymbol (ClassSymbol owner, long flags. 

String varName, String sType, 
Project project) { 

assert owner != null; 
try { 

synchronized (CompilerManager . instance (project ) . getManager (true) 

getContextLock 0 ) { // Alway get the JSp one (for now.) 
Type type = getTypeFromString ( sType, project); 
assert type != null; 



VarSymbol ret = null; 

Name . Table names = Name . Table . instance (CompilerManager . instanc 

e( 

project) . 
getManager (true) . 

getPro jectContext ( ) ) ; // Alway get the JSp one (for now.) 
Name name = names . fromSt ring (varName) ; 
ret = new VarSymbol ( flags, name, type, owner); 
owner . members ( ) . enter ( ret ) ; 
return ret; 

} 

} 

catch (Exception ex) { 
return null; 

} 

} 

static public MethodSymbol f indMethodSymbol (ClassSymbol owner. 

String name. String retTyp 

e. 

String [] parameterTypes, 
Project project, Env env) 

{ 

assert owner != null; 
try { 

synchronized (CompilerManager . instance (project) . getManager (true) 

getContextLock ( ) ) { // Alway get the JSp one (for now.) 
Context context = CompilerManager . instance (pro ject ). getManager 

(true) . 

getPro jectContext () ; // Alway get the JSp one (for now.) 
JamType [ ] paramTypes = new JamType [parameterTypes . length] ; 
for (int 1=0; i < paramTypes . length; i++) { 

paramTypes [ i ] = JamType . fromText (parameterTypes [ i ]) ; 

} 

String signature = JamMethodType . createSignature ( JamType . fromT 

ext ( 

ret Type) , paramTypes) ; 
MethodSymbol ret = FilterHelper . lookupFun (owner, name, signatu 

re, 

context, env) ; 
return ret; 

} 

} 

catch (Exception ex) { 
return null; 

} 

} 

static public MethodSymbol addMethodSymbol (ClassSymbol owner, long f la 
gs. 

String methodName, String r 

etType, 

String [] parameterTypes, 
String [] thrownTypes, 
Project project) { 

assert owner != null; 
try { 

synchronized (CompilerManager . instance (project) . getManager (true) 

getContextLock 0 ) { // Alway get the JSp one (for now.) 
Type resType = getTypeFromSt ring ( retType, project); 
assert resType != null; 

Context context = CompilerManager . instance (pro ject ). getManager 

(true) . 

getPro jectContext () ; // Alway get the JSp one (for now.) 
MethodSymbol ret = null; 

Name. Table names = Name . Table . instance ( context ) ; 
Name name = names . fromString (methodName ) ; 
ListBuffer paramTypes = new ListBuf f er ( ) ; 



ListBuffer thrTypes = new ListBuf f er ( ) ; 

for (int i = 0; i < parameterTypes . length; i++) { 

paramTypes . append (get TypeFromSt ring (parameterTypes [i] , proje 

ct) ) ; 

} 

for (int i = 0; i < thrownTypes . length; i++) { 

thrTypes . append (get TypeFromString (thrownTypes [i] , project) ) ; 

} 

MethodType mType = new MethodType (paramTypes . toList () , resType 

thrTypes . toList ( ) , owner . type . t sym) ; 
ret = new MethodSymbol (flags, name, mType, owner) ; 
owner . members ( ) . enter ( ret ) ; 
return ret; 

} 

} 

catch (Exception ex) { 
return null; 

} 

} 

private static Type getTypeFromString ( String sType, Project project) { 
Type type = null; 

Symtab syms = Symtab . instance (CompilerManager . instance (pro ject) . ge 
tManager (true) . getPro jectContext ( ) ) ; // Alway get the JSp one (for now.) 
if ( sType. equals ("int") ) { // NORES 
type = syms . int Type; 

} 

else if (sType. equals ("byte") ) { // NORES 
type = syms .byteType; 

} 

else if (sType. equals ("char") ) { // NORES 
type = syms . charType; 

} 

else if (sType. equals ("short") ) { // NORES 
type = syms . shortType ; 

} 

else if (sType. equals ("long") ) { // NORES 
type = syms . longType; 

} 

else if (sType. equals ("float") ) { // NORES 
type = syms . float Type ; 

} 

else if (sType. equals ("double") ) { // NORES 
type = syms . doubleType; 

} 

else if (sType. equals ("boolean") ) { // NORES 
type = syms .booleanType; 

} 

else if (sType. equals ("void") ) { // NORES 
type = syms . voidType; 

} 

else if (sType.indexOf (" [") 1= -1) { // NORES 
type = syms . array sType; 

} 

else { 

type = f indClassSymbol ( sType, pro ject ). type; 

} 

return type; 

} 

} 

// refactor_l_0 .dtd 

// Copyright (c) 2004. Borland Software Corporation All Rights Reserved. 
<?xml version^" 1 . 0 " encoding="UTF-8 " ?> 

<! ELEMENT ref actor ( ( rename-package | change-method-signature | rename- 
method | rename-field | rename-class ) * ) > 
<! ELEMENT declaring-class-name ( #PCDATA ) > 

<! ELEMENT rename-method ( declaring-class-name, declared-method-signatur 
e, old-method-name, new-method-name ) > 



ATTLIST rename-method creation-time CDATA #REQUIRED > 
ATTLIST rename-method id CDATA #REQUIRED > 
ELEMENT declared-method-signature ( #PCDATA ) > 
ELEMENT old-method-name ( #PCDATA ) > 
ELEMENT new-method-name ( #PCDATA ) > 

ELEMENT rename-class ( old-class-name, new-class-name ) > 
ATTLIST rename-class creation-time CDATA #REQUIRED > 
ATTLIST rename-class id CDATA #REQUIRED > 
ELEMENT old-class-name ( #PCDATA ) > 

( #PCDATA ) > 

( old-package-name, new-package-name ) > 
ATTLIST rename-package creation-time CDATA #REQUIRED > 
ATTLIST rename-package id CDATA #REQUIRED > 
ELEMENT new-package-name ( #PCDATA ) > 
ELEMENT old-package-name ( #PCDATA ) > 

ELEMENT rename-field ( declaring-class-name, old-field-name, declared- 



ELEMENT new-clas s-name 
ELEMENT rename-package 



field-type, new-field-name ) > 

<! ATTLIST rename-field creation-time CDATA #REQUIRED > 

<! ATTLIST rename-field id CDATA #REQUIRED > 

<! ELEMENT old-field-name ( #PCDATA ) > 

<! ELEMENT declared-field-type ( #PCDATA ) > 

<! ELEMENT new-field-name ( #PCDATA ) > 

<! ELEMENT change-method-signature ( declaring-class-name, declared-metho 

d-name, old-method-signature, new-return-type?, new-parameters? ) > 

<! ATTLIST change-method-signature creation-time CDATA #REQUIRED > 

<! ATTLIST change-method-signature id CDATA #REQUIRED > 

<! ELEMENT declared-method-name ( #PCDATA ) > 

<! ELEMENT old-method-signature ( #PCDATA ) > 

<! ELEMENT new-return-type ( #PCDATA ) > 

< ! ELEMENT new-parameters ( parameter+ ) > 

<! ELEMENT parameter ( parameter-name, parameter-type, default-value?, ol 

d-index, new-index ) > 

<! ELEMENT parameter-name ( #PCDATA ) > 
<! ELEMENT parameter-type ( #PCDATA ) > 
<! ELEMENT default-value ( #PCDATA ) > 
<! ELEMENT old-index ( #PCDATA ) > 
<! ELEMENT new-index ( #PCDATA ) > 
// SymbolCreator . java 

// Copyright (c) 2004. Borland Software Corporation All Rights Reserved. 

package com.borland. jbuilder . ref actor . async; 

import com . bo r land . primet ime . util . * ; 

import com . bo r land . jbuilder . jam. * ; 

import com. bor land . jbuilder . java . * ; 

import com. bor land . jbuilder . node . * ; 

import com. sun . tools . javac . code . * ; 

import com. sun . tools . javac . code . Symbol . * ; 

public class SymbolCreator { 

private JBProject project; 

private ClassSymbol classSymbol; 

private ClassCloner classCloner; 

/ -k-k 

* Constructor when a class already exists. Will lookup the classsymbo 



* required for adding members 

■k 

* @param project JBProject 

* Qparam existingClass JamClass 
*/ 

public SymbolCreator (JBProject project, 

JamClass existingClass) { 
this. project = project; 

classSymbol = Member In ject or . findC lass Symbol (existingClass . get Name ( ) 
, project) ; 
} 

^ k k 

* Constructor when the class does not exist and needs to be created f 

rom 

a cloned class 



* @param project JBProject 

* Qparam existingClass JamClass - this the class that will used to cl 

one 

* the new class 

* Qparam newClassName String - the name of the new class once cloned 
*/ 

public SymbolCreator (JBProject project, 

JamClass existingClass, 
String newClassName) { 
this. project = project; 

classCloner = new ClassCloner (pro ject , existingClass, newClassName); 
classSymbol = classCloner . getNewClassSymbol () ; 

} 

public void clearSymbols ( ) { 
if (classCloner != null) { 

classCloner . removeClonedClass () ; 

} 

pro ject . getCompilerManager 0 . purgeCompilerContext () ; 

} 

/ -k -k 

* From methodName and methodType create a method symbol for the class 
passed 

* in the contructor 

* @param methodName String 

* @param methodType JamMethodType 

* ©return MethodSymbol 
*/ 

public MethodSymbol addMethodSymbol ( String methodName, 

JamMethodType methodType) { 

classSymbol = getClassSymbol ( ) ; 

String [] parameters = JamUtil . convert JamTypeToString (methodType . getP 
arameters ( ) ) ; 

String returnType = methodType . getReturnType (). toText () ; 
MethodSymbol newMethod = Memberlnjector . addMethodSymbol (classSymbol, 

Flags .PUBLIC, 

methodName, 

returnType, 

parameters, 

EmptyArrays . STRING_EMPTY_ARRAY, 
project) ; 
return newMethod; 

} 

/ -k-k 

* From f romFieldName and fieldType create a new VarSymbol for the cla 

ss 

* paseed in the constructor 

* @param f romFieldName String 

* @param fieldType JamType 

* ©return VarSymbol 

^/ 

public VarSymbol addFieldSymbol (String f romFieldName, JamType fieldTyp 
e) { 

classSymbol = getClassSymbol () ; 
VarSymbol newField; 

newField = Memberlnjector . addFieldSymbol ( classSymbol , 

Flags .PUBLIC, 
f romFieldName, 
fieldType . toText ( ) , 
project) ; 

return newField; 

} 

* Get the class symbol found during construction of this class 

* ©return ClassSymbol 



*/ 

public ClassSymbol getClassSyitibol ( ) { 
return classSymbol; 

} 



